home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-3.dxr / 00013_modulo 7.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  662 b   |  26 lines
  1. on mouseUp
  2.   global sModuloDestino, bVrPlay
  3.   if rollOver(16) then
  4.     set the member of sprite 16 to member "Bt_Mod_A/7" of castLib "elementos graficos"
  5.     puppetSprite(16, 0)
  6.     updateStage()
  7.     set CD to BuscaCd()
  8.     if CD <> EMPTY then
  9.       set sModuloDestino to CD & "\modulos\MOD-7"
  10.       go("cambio")
  11.     end if
  12.   end if
  13. end
  14.  
  15. on mouseDown
  16.   repeat while the stillDown
  17.     puppetSprite(16, 1)
  18.     if rollOver(16) then
  19.       set the member of sprite 16 to member "Bt_Mod_B/7" of castLib "elementos graficos"
  20.     else
  21.       set the member of sprite 16 to member "Bt_Mod_A/7" of castLib "elementos graficos"
  22.     end if
  23.     updateStage()
  24.   end repeat
  25. end
  26.